home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.spa < prev    next >
Encoding:
Text File  |  1993-11-19  |  16.7 KB  |  710 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Aug 18 1992;3.1
  3.  
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41. ;  default destination drive
  42. PARSE_PATH <$CurDir>
  43. SET def_dest = C:\
  44. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  45.  
  46. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  47. SET def_cdtype = High Sierra
  48. SET def_driver = FS_HSGEN
  49. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  50. SET def_cdtype = ISO
  51. SET def_driver = FS_ISGEN
  52. :ok_driver
  53.  
  54. ;  language
  55. SET def_lang = <$Language>
  56.  
  57. ; application name(s) (4 char ident(s) on CD-ROM)
  58. READFILE names = <ins>\APPLNAME.
  59.  
  60. ; product name (application name for batch file, subdirectory name)
  61. READFILE prod = <ins>\PRODNAME.
  62.  
  63. ; default dest drive and directory
  64. PARSE_PATH <def_dest><prod>.CD
  65. SET dstdrive = <$Drive>
  66. SET path = <$Dir>
  67. CD <dstdrive>\
  68.  
  69. ; read and display Application Installation Screen
  70. IF NOT EXISTS <insdrive>\DISK1\PRODSCRN.<def_lang> GOTO no_banner
  71. READFILE screen = <insdrive>\DISK1\PRODSCRN.<def_lang>
  72. GOTO show_banner
  73. :no_banner
  74. SET screen =
  75. ----        Instalación de CD Answer para:\n\n
  76. ----               <prod>\n\n
  77. ----        Aplicación(es): <names>
  78. :show_banner
  79. CLEAR
  80. TEXT <screen>
  81. SET screen =
  82. WAIT
  83.  
  84. GOTO okdir
  85. :getdir
  86. CLEAR
  87. TEXT \nError -\n\n
  88. ----  El path "<dstdrive><path>" no es legal!\n
  89. ----Para instalar el programma, debe existir tanto una disquetera como un
  90. ---- subdirectorio válido.
  91. WAIT
  92. :okdir
  93. CLEAR
  94. TEXT La software de recuperación de datos debe ser instalada en su disco
  95. ---- duro o en un disco flexible formateado.  Los valores standard son\n
  96. ----disquetera <dstdrive> (normalmente el disco duro), y un subdirectorio\n
  97. ----llamado <path>.  Para usar estos valores, presione dos veces la\n
  98. ----tecla ┘ (Intro).  Para cambiarlos, escriba el nombre de la disquetera\n
  99. ----o del subdirectorio después del aviso correspondiente.  Entonces\n
  100. ----presione ┘ (Intro).
  101. INPUT 6,8,5 dstdrive = Instalar en la disquetera ?
  102. INPUT 6,10,40 path   = Instalar en el directorio ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT El directorio "<dest>" ya existe.
  117. NEWMENU 1, 0, 68
  118. ;TFPL -8-6-93
  119. MENU Instalar el software y sólo el interfaz español
  120. MENU Instalar el software y los interfaces de todos los idiomas
  121. ;TFPL
  122. MENU Borrar la versión antigua; no instalar la software nueva
  123. MENU Cambiar la configuración; no copiar software
  124. MENU Interrumpir la instalación sin hacer ningún cambio
  125. ENDCHOICES
  126.  
  127. ;TFPL -8-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Effacement du contenu antérieur de <dest>...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144.  
  145. ;TFPL
  146.  
  147. CHOICE 2
  148. CLEAR
  149. TEXT Borrando el contenido anterior de <dest>...
  150. FOREACH name = <names>
  151.  DEL <dest>\<name>*.*
  152. NEXT
  153. DEL <dest>\FS_*.DRV
  154. DEL <dest>\SC_*.DRV
  155. DEL <dest>\PR_*.DRV
  156. DEL <dest>\GR_*.DRV
  157. DEL <dest>\_DW_*.*
  158. DEL <dest>\DW.EXE
  159. DEL <dest>\ADL_MSGS.*
  160. DEL <dest>\UPDATE.EXE
  161. SET ch = 3
  162. GOTO okpath
  163.  
  164. CHOICE 3
  165. CLEAR
  166. TEXT Cancelando <dest> directorio...
  167. FOREACH name = <names>
  168.  DEL <dest>\<name>*.*
  169. NEXT
  170. DEL <dest>\FS_*.DRV
  171. DEL <dest>\SC_*.DRV
  172. DEL <dest>\PR_*.DRV
  173. DEL <dest>\GR_*.DRV
  174. DEL <dest>\_DW_*.*
  175. DEL <dest>\ADL_MSGS.*
  176. DEL <dest>\DW.EXE
  177. DEL <dest>\UPDATE.EXE
  178. IF NOT EXISTS <dest>\*.* GOTO remdest
  179. TEXT <dest> directorio contiene archivos desconocidos; directorio no ha sido cancelado!!
  180. WAIT
  181. GOTO norem
  182. :remdest
  183. RD <dest>
  184. :norem
  185. DEL <dstdrive>\<prod>.BAT
  186. GOTO end2
  187.  
  188. CHOICE 4
  189. SET alter = Y
  190. SET confile = <dest>\_DW_.CFG
  191. GOTO okpath
  192.  
  193. CHOICE 5
  194. GOTO end2
  195. ENDCHOICES
  196.  
  197. :nopath
  198. MD <dest>
  199. IF NOT DIREXISTS <dest> GOTO getdir
  200.  
  201. ;TFPL -8-6-93
  202. TEXT New Installation
  203. NEWMENU 1, 3, 64
  204. MENU Instalar el software y sólo el interfaz español
  205. MENU Instalar el software y los interfaces de todos los idiomas
  206. ENDCHOICES
  207.  
  208. CHOICE1
  209. SET ch = 2
  210. GOTO okpath
  211.  
  212. CHOICE2
  213. SET ch = 3
  214. GOTO okpath
  215. ENDCHOICES
  216.  
  217. :okpath
  218.  
  219. ;----------------------------------------------------------------------------
  220.  
  221. IF NOT EXISTS <confile> GOTO no_config
  222. DISP 5,14 Leyendo la configuración...
  223. READCONFIG <confile>
  224. :no_config
  225.  
  226. ;----------------------------------------------------------------------------
  227.  
  228. HSCOUNT hs
  229. IF NOT <hs>==0 GOTO have_hs
  230.  
  231. CLEAR
  232. TEXT  Problema - No hay ningúna disquetera CD-ROM instalada.\n\n
  233. ----Se ruega usar el disco de instalación proporcionado por el fabricante de
  234. ---- su disquetera CD-ROM para instalar la software del device driver.  Luego
  235. ---- repita este programa de instalación.\n\n
  236. ----Note: El programa de instalación de la disquetera CD-ROM copiará algunos
  237. ---- archivos a su disco de sistema y modificará los archivos CONFIG.SYS y
  238. ---- AUTOEXEC.BAT\n
  239. ----Si Ud. no tiene otros programas que usan el programa MSCDEX, se recomienda
  240. ---- eliminar la línea que llama a este programa de su archivo AUTOEXEC.BAT
  241. ---- porque esta software no lo requiere.\n\n
  242. ----Después de instalar los drivers CD-ROM se deberá reinicializar el sistema.
  243.  
  244. WAIT
  245. ABORT
  246.  
  247. :have_hs
  248. ;TFPL 19-11-93
  249. GOTO get_hs_letter
  250.  
  251. SET msg =
  252. IF <hs>==1 GOTO instOne
  253.  
  254. TEXT Una selección de <def_cdtype> drivers CD-ROM drivers están disponibles:\n\n
  255. ----Seleccione el device driver CD-ROM <def_cdtype> de esta lista de device
  256. ---- drivers disponibles usando las teclas  y .  Luego\n
  257. ----presione ┘ (Intro).  Presione Esc para interrumpir la installación.
  258. GOTO instMore
  259.  
  260. :instOne
  261. SET msg = Un driver CD-ROM <def_cdtype> ha sido instalado (vea CONFIG.SYS):\n\n
  262.  
  263. :instMore
  264. HSDRIVER hsname = 25, 8
  265. CONFIG Driver = "<def_driver>=<hsname>"
  266. CLEAR
  267. TEXT <msg>El driver CD-ROM <def_cdtype> seleccionado tiene el nombre "<hsname>".
  268. ----  Si esto no es correcto, presione Esc para interrumpir la instalación y
  269. ---- revise su archivo CONFIG.SYS\n\n
  270. ----Esta software NO requiere el programa MSCDEX.EXE (Microsoft CD-ROM
  271. ---- Extensions).  Si ningún otro programa lo requiere entonces Ud. puede
  272. ---- eliminar este programa de su archivo \AUTOEXEC.BAT (donde puede haber
  273. ---- sido instalado por el programa de instalación).
  274.  
  275. WAIT
  276.  
  277. CLEAR
  278. TEXT Copiando Interface CD-ROM <def_cdtype>...
  279. SET driver_name = <def_driver>.DRV
  280. GOSUB copy_driver
  281.  
  282. ;TFPL 19-11-93
  283. :get_hs_letter
  284. CLEAR
  285. :tfpl_drive
  286. GOTO tfp1
  287. :drive_error
  288. TEXT Error: The database is not available on the specified drive...\n\n
  289. :tfp1
  290. TEXT \n\n
  291. ----Introduzca la letra de la unidad de CD-ROM \n
  292. ----(normalmente "D")...
  293.  
  294. INPUT 2,10,1 inst_drive = CD-ROM ?
  295. IF "inst_drive"=="" GOTO drive_error
  296. IF NOT DIREXISTS <inst_drive>:\ GOTO drive_error
  297. IF NOT EXISTS <inst_drive>:\TTLEDD00 GOTO drive_error
  298.  
  299. ;SET instdrive = <inst_drive>:\
  300. CONFIG Driver = "<inst_drive>:\"
  301. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  302.  
  303. ;----------------------------------------------------------------------------
  304. :disp_display
  305. CLEAR
  306. TEXT Presenta Alternativas:\n\n
  307. ---- Use las teclas  y  para eligir un tipo de pantalla\n
  308. ---- y presione ┘ (Intro).
  309.  
  310. NEWMENU ? 6 46
  311. MENU Pantalla Standard - Sin capacidad gráfica
  312. MENU Adaptador VGA
  313. MENU Adaptador MCGA
  314. MENU Adaptador EGA
  315. MENU Adaptador CGA
  316. MENU Tarjeta Gráfica Hercules
  317. MENU Olivetti, AT&T o Compaq Plasma
  318. MENU Página entera
  319.  
  320. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  321. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  322. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  323. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  324. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  325. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  326. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  327.  
  328. SET Port = N
  329. SET Graphic = N
  330.  
  331. CHOICE 1
  332.  SET scr_type = SC_STD
  333.  SET Port = ?
  334. CHOICE 2
  335.  SET scr_type = SC_VGA
  336.  SET Port = ?
  337. CHOICE 3
  338.  SET scr_type = SC_MCGA
  339.  SET Port = ?
  340. CHOICE 4
  341.  SET scr_type = SC_EGA
  342.  SET Port = ?
  343. CHOICE 5
  344.  SET scr_type = SC_CGA
  345.  SET Port = ?
  346. CHOICE 6
  347.  SET scr_type = SC_HERC
  348. CHOICE 7
  349.  SET scr_type = SC_ATT
  350.  SET Port = ?
  351. CHOICE 8
  352.  SET scr_type = FP
  353. ENDCHOICES
  354.  
  355. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  356.  
  357. CLEAR
  358. TEXT Presenta Alternativas:\n\n
  359. ---- Use las teclas  y  para eligir un tipo de pantalla\n
  360. ---- y presione ┘ (Intro).
  361.  
  362. NEWMENU ? 6 46
  363. MENU Cornerstone FullPage
  364. MENU MDS Genius
  365.  
  366. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  367. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  368.  
  369. CHOICE 1
  370.  SET scr_type = SC_CNRST
  371. CHOICE 2
  372.  SET scr_type = SC_MDS
  373. ENDCHOICES
  374.  
  375. :not_full_page
  376.  
  377. SET extra =
  378. IF NOT "<Port>" == "?" GOTO no_scr_opts
  379.  
  380. CLEAR
  381. TEXT Presenta Alternativas Detalladas:\n\n
  382. ---- Use las teclas  y  para eligir la opción de pantalla\n
  383. ---- y presione ┘ (Intro).
  384.  
  385. NEWMENU ? 6 46
  386.  MENU Monitor Standard de Color o Monocromo
  387.  MENU Computadora Portable - con monitor Monocromo incluído
  388.  IF "<scr_type>"=="SC_CGA" DO MENU Pantallas de Color Antiguas - interferencia o "nieve"
  389.  
  390. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  391.  
  392. CHOICE 2
  393.   SET extra = P
  394. CHOICE 3
  395.   SET extra = F
  396. ENDCHOICES
  397.  
  398. :no_scr_opts
  399.  
  400. CONFIG Screen = "<scr_type>=<extra>"
  401.  
  402. CLEAR
  403. TEXT Copiando el Driver de la Pantalla...
  404. SET driver_name = <scr_type>.DRV
  405. GOSUB copy_driver
  406.  
  407. ;----------------------------------------------------------------------------
  408.  
  409. CLEAR
  410. TEXT Alternativas de Impresora:\n\n
  411. ---- Use las teclas  y  para eligir el tipo de impresora\n
  412. ---- y presione ┘ (Intro).
  413.  
  414. SET extra =
  415.  
  416. NEWMENU ? 6 46
  417. MENU Familia HP LaserJet
  418. MENU Familia HP DeskJet
  419. MENU Controlador de impresora JLaser
  420. MENU Otra impresora
  421.  
  422. CHOICE 1
  423.   SET prn_type = PR_PCL?
  424. CHOICE 2
  425.   SET prn_type = PR_DJ?
  426. CHOICE 3
  427.   SET prn_type = PR_JL?
  428. CHOICE 4
  429.   SET prn_type = PR_STD
  430. ENDCHOICES
  431.  
  432. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  433. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  434. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  435. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  436.  
  437. :pr_type_1
  438.  
  439.   CLEAR
  440.  
  441.   GOSUB pr_detail
  442.  
  443.   NEWMENU ? 6 46
  444.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  445.   MENU HP LaserJet Series II, IID
  446.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  447.  
  448.   CHOICE 1
  449.     SET extra = R
  450.   CHOICE 2
  451.     SET extra = X
  452.   CHOICE 3
  453.     SET extra = XG
  454.   ENDCHOICES
  455.  
  456.   GOSUB pr_detail
  457.  
  458.   NEWMENU ? 6 46
  459.   MENU 300 Dpi (  1Mb memoria)
  460.   MENU 150 Dpi (512Kb memoria)
  461.   MENU 75  Dpi (256Kb memoria)
  462.  
  463.   CHOICE 1
  464.     SET prn_type = PR_PCL30
  465.   CHOICE 2
  466.     SET prn_type = PR_PCL15
  467.   CHOICE 3
  468.     SET prn_type = PR_PCL75
  469.   ENDCHOICES
  470.  
  471.   GOTO pr_type_ok
  472.  
  473. :pr_type_2
  474.  
  475.   GOSUB pr_detail
  476.  
  477.   NEWMENU ? 6 46
  478.   MENU HP DeskJet(+)
  479.   MENU HP DeskJet 500
  480.   MENU HP DeskJet 500C
  481.  
  482.   CHOICE 1
  483.     SET extra = X
  484.   CHOICE 2
  485.     SET extra = XG
  486.   CHOICE 3
  487.     SET extra = XG
  488.   ENDCHOICES
  489.  
  490.   GOSUB pr_detail
  491.  
  492.   NEWMENU ? 6 46
  493.   MENU 300 Dpi
  494.   MENU 150 Dpi
  495.   MENU 75  Dpi
  496.  
  497.   CHOICE 1
  498.     SET prn_type = PR_PCL30
  499.   CHOICE 2
  500.     SET prn_type = PR_PCL15
  501.   CHOICE 3
  502.     SET prn_type = PR_PCL75
  503.   ENDCHOICES
  504.  
  505.   GOTO pr_type_ok
  506.  
  507. :pr_type_3
  508.  
  509.   GOSUB pr_detail
  510.  
  511.   NEWMENU ? 6 46
  512.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  513.   MENU HP LaserJet (todos los demás modelos)
  514.   MENU Canon LBP (todos los modelos)
  515.  
  516.   CHOICE 1
  517.     SET prn_type = PR_JLHP
  518.     SET extra = R
  519.   CHOICE 2
  520.     SET prn_type = PR_JLHP
  521.     SET extra = X
  522.   CHOICE 3
  523.     SET prn_type = PR_JLCAN
  524.   ENDCHOICES
  525.  
  526.   GOTO pr_type_ok
  527.  
  528. :pr_type_4
  529.  
  530.   GOSUB pr_detail
  531.  
  532.   NEWMENU ? 6 46
  533.   MENU grupo de carácteres PC 8 (std)
  534.   MENU grupo de carácteres 7 bit nacional
  535.  
  536.   CHOICE 2
  537.     SET extra = 7
  538.   ENDCHOICES
  539.  
  540.   GOTO pr_type_ok
  541.  
  542. :pr_detail
  543. CLEAR
  544. TEXT Alternativas Detalladas de Impresora:\n\n
  545. ---- Use las teclas  y  para eligir la opción de impresora\n
  546. ---- y presione ┘ (Intro).
  547. RETURN
  548.  
  549. :pr_type_ok
  550.  
  551. SET port =
  552.  
  553. NEWMENU ? 6 40
  554. MENU LPT1       Parallel Printer # 1
  555. MENU COM1       Serial Printer   # 1
  556. MENU LPT2       Parallel Printer # 2
  557. MENU COM2       Serial Printer   # 2
  558. MENU LPT3       Parallel Printer # 3
  559. MENU LPT4       Parallel Printer # 4
  560. MENU PRN        Impresora actual DOS
  561.  
  562. CLEAR
  563. TEXT Alternativas de Conexión de Impresora:\n\n
  564. ---- Use las teclas  y  para eligir el port de impresora\n
  565. ---- y presione ┘ (Intro).
  566.  
  567. CHOICE 1
  568.  SET port = LPT1,
  569. CHOICE 2
  570.  SET port = COM1,
  571. CHOICE 3
  572.  SET port = LPT2,
  573. CHOICE 4
  574.  SET port = COM2,
  575. CHOICE 5
  576.  SET port = LPT3,
  577. CHOICE 6
  578.  SET port = LPT4,
  579. CHOICE 7
  580.  SET port = PRN,
  581. ENDCHOICES
  582.  
  583. CONFIG Printer = "<prn_type>=<port><extra>"
  584.  
  585. CLEAR
  586. TEXT Copiando el Driver de la Impresora...
  587. SET driver_name = <prn_type>.DRV
  588. GOSUB copy_driver
  589.  
  590. ;----------------------------------------------------------------------------
  591.  
  592. IF "<alter>"=="Y" GOTO done
  593.  
  594. :read_disk
  595. GOSUB need_disk
  596. ;TFPL 8-6-93
  597. IF "<ch>"=="2" GOTO inst_only_eng
  598. IF "<ch>"=="3" GOTO inst_all
  599.  
  600. :inst_only_eng
  601. CLEAR
  602.  
  603. TEXT Instalando los ficheros de la aplicación y el interfaz español...
  604. COPY_OPT <insdrive>\DISK<curdisk>\*.SPA <dest>
  605. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  606. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  607. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  608. COPY_OPT <ins>\_DW_MSGS.SPA <dest>
  609. COPY_OPT <ins>\ADL_MSGS.SPA <dest>
  610. GOTO adl_dw_message
  611.  
  612. :inst_all
  613. ;TFPL
  614.  
  615.  
  616. CLEAR
  617. TEXT Instalando archivos de Aplicación del Disco de Instalación <curdisk>...
  618. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  619.  
  620. ;TFPL 8-6-93
  621. COPY_OPT <ins>\_DW_MSGS.* <dest>
  622. COPY_OPT <ins>\ADL_MSGS.* <dest>
  623. GOTO adl_dw_message
  624.  
  625. :inst_only_soft
  626. CLEAR
  627.  
  628. TEXT Installing only software files...
  629. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  630. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  631. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  632. COPY_OPT <ins>\_DW_MSGS.* <dest>
  633. COPY_OPT <ins>\ADL_MSGS.* <dest>
  634. ;TFPL
  635. :adl_dw_message
  636. ;Copy adl and dw message files
  637. IF NOT DIREXISTS <ins> GOTO skip_message_files
  638. COPY_OPT <ins>\UPDATE.EXE <dest>
  639. :skip_message_files
  640.  
  641. CALC curdisk = <curdisk> + 1
  642. IF EXISTS <insdrive>MORE GOTO read_disk
  643.  
  644. CONFIG Language = "<def_lang>"
  645. goto DONE
  646.  
  647. :abort
  648. if "<dest>"=="" GOTO nofiles
  649. if "<alter>"=="Y" GOTO nofiles
  650. CLEAR
  651. TEXT \n\n!!! Instalación Abortada !!!\n\n
  652. ----   Borrando todos los archivos copiados...
  653. UNCOPY
  654. :nofiles
  655. CLEAR
  656. TEXT \n\n!!! Instalación Abortada !!!\n\n
  657. goto END
  658.  
  659. :copy_driver
  660. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  661. CALC curdisk = <curdisk> + 1
  662. GOSUB need_disk
  663. GOTO copy_driver
  664. :ok_copy
  665. COPY <ins>\<driver_name> <dest>
  666. RETURN
  667.  
  668. :need_disk
  669. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  670. :retry_disk2
  671. CLEAR
  672. TEXT Introduzca el Disco de Instalación Número <curdisk> y presione ┘ (Intro).
  673. WAIT
  674. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  675.  
  676. CLEAR
  677. TEXT El disco introducido no es el Disco de Instalación Número <curdisk> !
  678. NEWMENU ?, 3, 15
  679. MENU Repetir
  680. MENU Interrumpir
  681.  
  682. CHOICE 1
  683. GOTO retry_disk2
  684. ENDCHOICES
  685.  
  686. ABORT
  687.  
  688. :done
  689. CLEAR
  690. TEXT Actualizando la Configuración
  691. WRITECONFIG <dest>\_DW_.CFG
  692. IF "<alter>"=="Y" GOTO end
  693. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  694.  
  695. CLEAR
  696. TEXT \n  Instalación completada!\n\n
  697. ----Un archivo batch fue creado en el directorio <dstdrive>\ con el nombre <prod>.\n\n
  698. ----Para iniciar el programa, escriba:\n\n
  699. ----  <prod> ┘\n\n
  700. ----Importante: Para que este commando funcione correctamente, se debe
  701. ---- iniciar en el directorio <dstdrive>\  o incluirlo en la variable PATH.
  702.  
  703.  
  704. :end
  705. WAIT
  706.  
  707. :end2
  708. CD <$CurDir>
  709.  
  710.